home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.7z / ftp.whtech.com / datasheets and manuals / Hardware / WHT / scsi / dsr_sources_2_2001 / makefn < prev    next >
Encoding:
Text File  |  2006-10-19  |  1.5 KB  |  86 lines
  1. * Procedure MAKEFN
  2. *
  3. * This procedure will construct the file name out of the
  4. * current path plus the file name.
  5. *
  6.  
  7. MAKEFN MOVB @>834C,R6        Get SCSI ID
  8.        ANDI R6,>0F00
  9.        AI   R6,->100
  10.  
  11. * Copy the path to the name compare buffer
  12. *
  13.  
  14.        MOV  R6,R1
  15.        SRL  R1,8
  16.        LI   R0,40
  17.        MPY  R0,R1
  18.        AI   R2,PATH
  19.        LI   R3,NCB
  20.  
  21. MKFNA  LDCR @B02,4
  22.        CB   *R2,@SPACE
  23.        JEQ  MKFNB
  24.        MOVB *R2+,R4
  25.        JEQ  MKFNB
  26. *      LDCR @B02,4
  27.        MOVB R4,*R3
  28.        LDCR @B04,4
  29.        MOVB R4,*R3+
  30.        JMP  MKFNA
  31. *      DEC  R0
  32. *      JNE  MKFNA
  33. MKFNB
  34.        CI   R3,NCB
  35.        JEQ  MKFNC
  36.        LDCR @B02,4
  37.        CB   @-1(R3),@PERIOD
  38.        JEQ  MKFNC
  39.        MOVB @PERIOD,*R3
  40.        LDCR @B04,4
  41.        MOVB @PERIOD,*R3+
  42. MKFNC
  43.        LI   R5,10
  44.        MOV  @>834E,R2        Get pointer to file name
  45.        MOVB @>834C,R1
  46.        ANDI R1,>8000
  47.        JNE  MKFND
  48.  
  49. * Set the VDP read address to the buffer
  50.  
  51.        SWPB R2
  52.        MOVB R2,@VDPWA
  53.        SWPB R2
  54.        MOVB R2,@VDPWA
  55. MKFND
  56.  
  57. * Now copy the file name
  58. *
  59.        CI   R1,0
  60.        JNE  MKFNE
  61.  
  62.        MOVB @VDPRD,R4
  63.        JMP  MKFNF
  64.  
  65. MKFNE  MOVB *R2+,R4
  66. MKFNF  CB   R4,@ZERO
  67.        JEQ  MKFNG
  68.        CB   R4,@SPACE
  69.        JEQ  MKFNG
  70.        LDCR @B02,4
  71.        MOVB R4,*R3
  72.        LDCR @B04,4
  73.        MOVB R4,*R3+
  74.        DEC  R5
  75.        JNE  MKFND
  76.  
  77. MKFNG  CI   R3,NCB+40
  78.        JEQ  MKFNH
  79.        LDCR @B02,4
  80.        MOVB @SPACE,*R3
  81.        LDCR @B04,4
  82.        MOVB @SPACE,*R3+
  83.        JMP  MKFNG
  84.  
  85. MKFNH  RT
  86.